TEST.PCO[S1,ALS]1 - www.SailDart.org

perm filename TEST.PCO[S1,ALS]1 blob sn#405687 filedate 1978-12-27 generic text, type T, neo UTF8
 SST P  $MAINBLK       1       0       0    1028       0
 SST P  ONE00001       2       0       0       0       0
 LOC     0
 BGN 1,0,0
ONE00001 ENT P,2,L1  ONE            1 1 1
 LDA 1,13
 CSP  SIO
 LCA '1   1ST_PROCEDURE'
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 LOC    10
 CSP  SIO
 LCA '12345678901234567'
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF         8
 SST P  TWO00002       2       0       0       0       0
 LOC     0
TWO00002 ENT P,2,L1  TWO            1 1 1
 LDA 1,13
 CSP  SIO
 LCA '2   2ND_PROCEDURE'
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF         8
 SST P  THREE003       2       0       0       0       0
 LOC     0
THREE003 ENT P,2,L1  THREE          1 1 1
 RET P
L1 DEF         8
 SST P  FOUR0004       2       0       0       0       0
 LOC     0
FOUR0004 ENT P,2,L1  FOUR           1 1 1
 LDA 1,13
 CSP  SIO
 LCA '4   4   4'
 LDC I,9
 LDC I,9
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF         8
 SST P  FIVE0005       2       0       0       0       0
 LOC     0
FIVE0005 ENT P,2,L1  FIVE           1 1 1
 LDA 1,13
 CSP  SIO
 LCA '5   5'
 LDC I,5
 LDC I,5
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF         8
 LOC     0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,13
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDC I,1
 LOC    10
 STR I,1,44
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  REW
 CSP  EIO
 MST 2,0,0
 LOC    20
 CUP P,0,ONE00001
 MST 2,0,0
 CUP P,0,TWO00002
 LDA 1,13
 CSP  SIO
 LCA '0    MAIN_PROGRAM'
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  WLN
 LOC    30
 CSP  EIO
 RET P
L3 DEF      1072
 STP